home *** CD-ROM | disk | FTP | other *** search
/ D-Rom (UK) / D_ROM / D_ROM (Track 01).bin / d-rom95.exe / d-rom95.dxr / 00001.ls next >
Encoding:
Text File  |  1997-07-14  |  390 b   |  27 lines
  1. on exitFrame
  2.   global gpathname, result
  3.   set result to 0
  4.   acceptDrive()
  5.   if result = 1 then
  6.     checkqt()
  7.   else
  8.     go(5)
  9.   end if
  10. end
  11.  
  12. on checkqt
  13.   global gpathname
  14.   if the quickTimePresent = 0 then
  15.     go(the frame + 1)
  16.   else
  17.     go(1, gpathname & "intro.dir")
  18.   end if
  19. end
  20.  
  21. on acceptDrive
  22.   global gpathname, result
  23.   if the machineType = 256 then
  24.     set result to 1
  25.   end if
  26. end
  27.